home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / simula / books / books.lha / kirkerud / fibo2.sim < prev    next >
Text File  |  1993-08-16  |  613b  |  30 lines
  1. begin
  2.  
  3. ! Proposed solution to exercise 3.8 (second program);
  4.  
  5.   integer n, possible_fib, prev_fib, fib_i, next_fib;
  6.  
  7.   outtext("Type an integer> "); breakoutimage;
  8.   inimage; possible_fib := inint;
  9.  
  10.   prev_fib := 1; fib_i := 1;
  11.   n := 2;
  12.   while fib_i < possible_fib do
  13.     begin 
  14.       next_fib := prev_fib + fib_i; 
  15.       prev_fib := fib_i;
  16.       fib_i    := next_fib;
  17.       n        := n + 1;
  18.     end;
  19.  
  20.   outint(possible_fib, 0);
  21.   if fib_i = possible_fib then
  22.     begin 
  23.       outtext(" is Fibonacci number ");
  24.       outint(n, 0);
  25.     end
  26.   else outtext(" is not in the Fibonacci sequence");
  27.   outimage;
  28.  
  29. end
  30.